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PLEASE SEND TYPED MATERIAL FOR NEXT ISSUE TO: 

ROGER J. SPOTT 
13975 CONNECTICUT AVENUE 
WHEATON, MARYLAND 20906 
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INOR PATCH (TAP.LE 1). 

WILL HAVE ONE '+LO0P' PREFIX 

N ADD! TION' '♦LOOP' DOES 

WAS CORRECTED ALSO. 'SAVE' 
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FIRST* CASSETTE BLOCK NUMBERS ARE BACKWARDS FROM WHAT MIGHT 5E CONSIDERED 
NATURAL* I.E. 3031 'KEEP' PRODUCED A BLOCK NUMBER ON TAPE OF 3130 (31->3?3 AND 
3*'->134)> SO I FIXED THAT (TASLE 1). FINALLY* Th£ SYSTEM DOES NOT PRINT *'Q«" 
AFTER PROPER EXECUTION OF AN INSTRUCTION* AS IS STANDARD. I FIXED THAT ONE ALSO 
(TABLE 1)* IT SHOULD BE NOTED AT THIS POINT THAT YOU CANNOT TYPE OUT MORE T U AN 
A FOUR DIGIT NUMBER IN ANY BASE OR YOU GET MSDIGITS WHICH APPEAR STRANGE. I Am 
WORDING ON THIS ONE. ALSO* 'C«' DOES NOT FOLLOW THE STANDARD, |.p. TOS IS 
THE BYTE ADDRESS AND 'C«' SHOULD LOAD ThE ADDRESSED BYTE INTO THE LSRYTE OF THE 
TOS* BUT OTH.E* ROUTINES USE IT SO YOU CAN MAKE IT A DICTIONARY UPDATE1 



Table 1 



Sphere FOBTH Ver. 1.1 Patches 



Address 

2E9 
47A 
8C6 



8EA 
309 
349 
5B4 

8D9 
1328 
1B6G 



Old Contents 

8A 

8A 
BD 08 79 
BD 08 89 
BD 08 93 

DB 

6C 

6C 
BD 07 05 
06 2E 
E2 00 39 
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1B94 
1B9A 



New Contents 

87 
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CE F0 50 
20 07 01 
01 01 01 
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Table 2 Sphere FOBTH Ver. 1.1 Commands 



Remarks 
X H/W Stack Clean up 

SAVE/LOAD Patch 

Hew End of Program 

3 Print "OK" Patch 

J Backwards BIX # Patch 

} ♦ LOOP Patch 
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Print "OK" 
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LOOP Patch 
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Backwards BLK # Patch 



Command 

GTL H 

■*-or mmm 

CTL X 
CTL Q* 
CTL S* 
CTL R* 
CTL T* 



Action 



Ho effect on the Line Entry Buffer 



Erase Last Character (Screen and Line entry buffer). It has 

no effect ia the FSE mode. 

Erase entire entered line (screen and line entry buffer) , No 

effect in FSE. 

Clear screen t reset system and start over 

Move Cursor up one line 

Move Cursor down one line 

Move Cursor right one character position 

Move Cursor left one cursor position 



Cold start address is $200 
Warm start address is $203 



Pe.OGKA-.yviA SENT A REFERENCE MANUAL BUT THEY NEGLECTED TC SEND AMY !NFCR*ATIC*. ON' 
TriE USES/EDIT COMN-ANDS. TABLE 2 IDENTIFIES THE COMMANDS T^AT ARE AVAILABLE 
FQw CURSOR. MOVEMENT AND FOR LINE EDITING. 

I SHOULD INDICATE THAT ARITHMETIC CN THE SYSTE* IS SOMEWHAT INCONSISTENT. 
ADDITION AND SUBTRACTION ARE 2'S COMPLEMENT WHILE MULTIPLICATION AND 
DIVISION ARE UNSIGNED (MAGNITUDE ONLY). 

TA?LE 2 GIVES ADDRESSES THAT MAY 5E OF INTEREST. THERE ARE TWO 512 ( f 2 v ;!> ) SYTE 
RUFFEkS AT THE TOP OF MEMORY Wh|CH CAN 8E USED FOR DATA/RLOC* STORAGE AND 
RETRIEVAL. YOU CAN USE THEM OR 'SAVE '/ 'RECALL ' THEM FRO* CASSETTE (USING T *- E 
SUGGESTED PATCHES AND DICTIONARY UPDATES). PAGE ti MEMORY (£54 TO !S5) IS USED 
AS FORKING STORAGE FOR POINTERS* ADDRESSES* VARIABLES* ETC THE 5EGINMNG 
AREA OF THE PROGRAM (*226 TO *22E) CONTAINS JUMPS TO SOME FREQUENTLY USED 
ROUTINES AND CONTAINS INITIALIZATION VALUES FOR THE POINTERS IN PAGE i» 

TABLE A S^OWS THE LISTING GF THE DICTIONARY.' IT SHOWS THE PRGGfiAMMA SUPPLIED 
aORDS* MY EXPANSION dOROS TO COVER THE PA TCHES/FOR TH- 78 COMPATIBILITY AND WORDS 
REQUIRED FOR THE PRINTER ROUTINES. YOU MAY HAVE NOTICED T*AT THERE ARE SO«F 
WOkCS IN THE DICTIONARY THAT ARE NOT EXPLAINED IN Th£ REFERENCE MANUAL. 
TABLE 5 GOES INTO DETAIL ON THESE WORDS. MAJOR ONES OF INTEREST A*E '*'» 'L»» 
' Q ' > ' S ' » AND » X ' . 
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■rCR'* BY MODIFYING A JUMP ADDRESS. THE JUVF ACCRESS IS RESTORE 
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Table 3 Sphere FOBTH Ver. 1.1 Memory Locations 



Page Addr. 

5V55 

5A/5B 

5S/5F • 

60/61 
62/63 
6F/72 

7V75 
80/81 

84/85 
86/87 

88/89 



Initialization Addr. 

20A/20B 

2^8/209 

214 
212/213 

221/222 



20G/20D 
20E/20F 
210/211 
206/207 
200/202 
203/205 
215/217 
218/21A 
21B/2ID 
21E/220 
223/225 
226/228 
229/223 
22G/22E 



Definition 

SP Stack Pointer (Mem End-$60l) 
Dictionary Pointer (H) 
Delimiter Character (DELIM) 
Line Entry Buffer Start Addr 

(Mem End - $100) 
Link to Last Dictionary Word 
BASE 

First 4 char of New Word 
Start Addr for printable string 
Line Entry Buffer End Addr. 
HP Stack Pointer (Mem End-$600) 
Buffer 1 Start Addr (Mem End-$500) 
Buffer 2 Start Addr (Mem 3nd-$300) 
Memory End 
Cold Start 
Warm Start 

A-Reg to Next Dictionary Location 
PUTCHR 
GBTCHR 
Clear Screen 
Print Error Message 
X-Seg+A&B-Reg -~X-Heg 
Look for next DELIM 
Look for next non-DELIM 
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h c o I 
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LIST 


1438 


LOOP 


1426 


ALOO 


130E 


TEST 
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00 


1 3 a^ 


ty + i. 


1394 
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L X DO 
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AND 
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LXLP 


13 36 


^00 


132F 


XHP 


13^C 


X»_P 


12F3 


ECHO 
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S»A6 
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1260 
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1261 
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2* 
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SWAP 
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1135 


OCTA 


11U 


HEX 
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♦ 1 


10C7 


DUP 
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00 wN 


1 '/ 1 6 
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SP = 
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0F7F 


RS = X 


0F6F 
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SP 


0F20 
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0F00 


JSR 


0FF5 
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PULB 
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0P4A 
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CLR> 
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0E0F 
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IflEf ^ 
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0DF1 


BRA 


0OE2 


BPL 


0003 


BNE 


0PC4 


B M 1 


43DB5 


BLT 


0DA6 


BLS 


(?D97 


BIG 


088 


RMI 


0C'7'} 


BGT 


45D64 


5GE 


0D5B 


8E0 


0O4C 


BCS 


0030 


PCC> 


0D2E 


it A 1 


KJD22 


TXS 


3016 


TSX 


000 A 


TSTB 


0CFE 


TSTA 


0CF? 


TbA 


0CE6 


TAP 


0CCA 


TPA 


0CCE 


TAB 


0CC2 


Sw | 


0C«6 


StV 


0CAA 


St I 


0C9E 


SEC 


0C92 


SBi 


0CB6 


RTS 


0C 7A 


KII 


0C6E 


R0R8 


*G62 


ROR A 


0C56 


ROLR 


0C4A 
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0C3E 
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PSHB 
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OPA« 


0AA4 


ORAA 


0A99 


SBC8 


0A8E 


SBCA 


0A83 


SUBB 


0A78 


SURA 


0460 


SfAH 


PA 62 


JMP 


W57 


ACB» 


0A4C 


ACA, 


0A41 


Ap&> 


4 ? 6 


ADA, 


0A?B 


LDAB 


0A?0 


STAA 


0A15 


6* 


09EC 


K 


0QF? 


»X 


09 D3 


X = SP 


09C2 


SP = X 


09B1 


M 


0^3 


MNUV 


Q 91 


LDAA 


09 76 


I NX 


096A 


OEX 


095E 


0= 


09 6 4 


KEEP 


0Q41 


L 


09 26 


;S 


0910 


EXEC 


08F4 


LOAD 


08F3 


SAVF 


06A? 


LDRF 


0880 


BUFH 


0883 


BUFL 


08 73 


BKSP 


28 6 A 


CIR 


0864 


C» 


0646 


3 


06 3 E 


C 


0824 


» 


061* 


IMME 


06 6 


' 


£76 7 


CONS 


079C 


VARI 


0763 


* 


74 3 


• 
• 


072A 


MS 6 


70* 


CR 


06FF 














£• 5.+*.*-+ 


of e)tj 


<fc«*A««4. 


0»c4-iawrt^«^ 






* 




• 


<>**«-+ 


a¥ Pfo't v-<j.««*«"> «_ bi«."Tt.e*it *■* l i 











Table 5. Additional Unexplained Sphere FORTH Ver. 1.1 Words 



Word Remarks 



} 



Clear screen (CLR) 

Does a LOAD then an EXEC 

Backspaces Cursor, erasing character with no effect on the Line Entry Buffer 

Used as part of assembler to build the opcode & to put the opcode 

into the dictionary 

Finds the start of the next entry word 

Constants representing these values 



aj-t Increments loop count & does (Loop Cnt - Max Cnt) 
X+LO Does (TOS+Loop Cnt) -*"Loop Cnt & does (Loop Cnt - Max Cnt J 
XDO Does a SWAP then a <H then another <H 
LXLP Puts execution addr. of XLP on TOS 
LXDO Puts execution addr. of XDO on TOS 
LX+L Puts execution addr. of X+LO on TOS 
TEST Checks TOS sets A-Reg »-f0 if TOS » 
& then does a DROP 1 1 if TOS 

(.FF if TOS 
ALOO Macro for LOOP to terminate/continue loop & clean up RS 
LTST Puts execution addr. of TEST on TOS 
LP1 Macro for setting up IF using TEST 
-THE Routine to print an Error 09 message 
ABRT Puts execution addr. of -THE on TOS (flags no THEN) 
31 Uses the TOS, adds 2 to TOS, prints the value and uses the value as 

an addr. and prints the contents of the addr. 
Ql Same as SI but subtracts 2 
X Puts SP on TOS & uses SI to print the top 5 addr. /values of the 

Normal Stack 
S Expects an addr. on TOS. It takes the addr. & displays the next 12 

addr/values starting at that addr. To display the next 12 just type 
S. It leaves the next addr on the TOS 
Q Same as S but goes backwards through memory 




BEGIN A TIF 6 AGAIN. 

THE CONSTRUCT EXECUTES 'A' ATLEAST ONCE. IF 'T'<>^ T U EN IT EXECUTES 'g' AND 
RANCHES BACK TO EXECUTE 'A'. IF 'T'=<? THEN '5* IS NOT EXECUTED AND T*E LOOP 
TERMINATES. NOTE THAT 'AGAIN' IS AN • I M*ED ' - TYPE OF INSTRUCTION AND THUS MUST 
~E USED aITHIN fl ':' DEFINITION. IF 'AGAIN' IS ABSENT AFTER T^E 'IF'* AN 
"ERROR t9" wILL RESULT. 

'*'ELL THAT IS IT FOR VOW. IF YOU HAVE ANY QUESTIONS 03 CONVENTS* PLEASE FEEL 
FREE TO CONTACT ME. MORE TO FCLLG* AS TIME ALLOCS. happy COMPUTING. 

YOURS TRULY* 

CHARLES E. BURTON* PH.D. 

1616 MARILYN AVE. 

DAYTON OH 45^20 

(513) 254-2766 

7Vfc/«. 6. F-o/trTH Blocks 

( OICT!ON*Y UPDATES ) Re 5 -.-r*<A <■*«,»- FV.-V* ''-''^'4 f r 9 riU v« 

: / /MOD DROP ; co-/*^.'«»WW-j 

: /'-CD /KCC SfcAP ; /: (pot. -\)/ro*> t«av.'^« joo^»«+ «« tos 

: MOD /hOD 0*0* ; /wofi • (ras-l)/ 7 " * l «**;■«» ji»**>-*- o« r<?s * 

: >K <K ; i RECALL LOAD : * ,-*-.*.;« J ,-r- • •» «• ro «- • Fa '** 7& ,«»-f** ,bU 

: LOAC bUFL BUFH LCRF LCA0 ; Meb : Cr«s-0/ ra - J-**""^ i-*-— .•*=*<*■ «« 7 '°S 

: L LCAQ t'XbC : : £f« a S£ ZERO ; >R: PN»«-*k ra ««^p«.*«'J»1< 

6* CONS JAM LINK ItSCAU.: Duo -* <** SAV£ («l«l« SAVE *©<•; works a-o 

iS <*«Av»*r^.S«a{J) 

t_OAb } 6w*-t •*■ Kf CP 

i_ : L»*4s euek * "►* r«*> 4 eWMi ''' <•+. 

ERASE : Far**. 78 fl»~p*<t«V* 

PMk : A*UU*« *f Dict.e-.nj Li-<.lt Po,».lrf 

( PRINTER OKI VEH ) . . ... 

FM2 CONS PTPR h»}*3 CONS FTCL pTpR> : £"-*" £**,* /* Jv^," 5 , 

: SNDIT C PSHA PTPR STAA » 36 PrtU ' *"*' «•£"' ^ A ^'" 5 

LDAA » PTCL STAA a* 3E LDAA * **"» r ' S '"* *" *-*'-'<*<- 

PfCL STAA a. PULA 3 ; Pl*»2. i r«.-*<-l«*e Pr.*W ( port- 

! PINZ C PTCL CLR» •* FF LCAA * PC H* • 7V,rtf ** ^'"^^ CW.et** 4q «>« 
PTPR STAA •* 3F; .LDAA * PTC! pr.~(-<<4. ~<«s< t<- • - ■>"« A-tf^,*.*..-; tA«j 

STAA • * PTPR LDAA tif 60 LDAA # '» "Ha «**"j p*-*^ ft*- pr. --f-.M-. 

» S\C! T JMP *# ; , . ., , 

. hchR C PTCL TST a* FB BPL PTPR Mok. j TUs .» *«-- a--- -U.rf< r a.* >M* ««<> 

TST »* ' SNDIT JVP «* ; . • pu.Wli»U#X it *** Aj*,j*i*H*r- V. + ,M -i , Z/79 

» KHR CONSTANT 'KHR PINZ 



( "HKlMEh ROUTINES PT. 1 ) 
: PCk [ WD LDAA * ] PCHP C iJA 
LCAA * 1 PCHk ; 

KfcOO »j-CHn 12ED ! ; 

CECHO f-Cf-C 12ED ! ; 

KMSC- 'rCHk 722 ! ; 

OSO 216 ?22 ! : 

(-EChu k£CHG ECHO CECho ; 

PKSG Fi*S6 CSG OSG ; 

PSPACE RECHO SPACE CECHO : 

P. RECHO . CECHO ; 

f«* KECHO .'CECHO J 
'" I Cii l* COT. ' rC ' I ' Di 

:S 



&£CH.O : 0»« •!'"» ECHO ou.fp«*+ 






1CCHO : 


^;Wr<i £CH<5 a^l/x-f 


r<*o it 


Rms<* : 


&t*4 «« RKCfl* ?•»« 


M St'i 


C.MS6 * 


Sa>»^ *.4 CCCHO Rr.r 


M3& 


PEC/io : 


CCHO P««- pr,~l'r 




F»MC6 • 


M t G 'fi?r pr-yn/i-r 




PS'P^^-tt " 


S ?/*£.£ f». .> •■« '•■ <<-r 




P. i 


« ro r p r i •*. V' f 




p.*t : 


»*fc far pr^^i' 





( PRIMER ROUTINES PT. 2 ) 
PTYPE RECHO lypg CFCnO ; 
Y) kEChq ? CEChO ; 
P?HASE RECHO ?iASE CECHO 
PCKT HEChO BUfH 8UK DO I 
TYPE PC« 2V HOOP PCR PCK 
CECHO ; 



2C 



p ? '.' ? t»< p (■•••'"" 

TCB.T '. Pr.^ + s *''<: 



4.,,.- Cft.7 OSrst 



( PklME.K KCUTINES PL 3 ) 

NSPACES if. CO SPACE LOOP ; 

LEAVE DPP. I >K ; 

GEFLIN'H 6? * 5 

P0IC1 RECHO GETLINK C HERE >R 
J PC-k b C 00 DUP 4 TYPE 2 
SSPACEb DUP •* 5 
DUP NOT If LEAVE 
II- C k> JMP a* ] 
PCH CECHQ ; 
;S 



NSPACES 4 
THEN LOOP 



+ a 
OUP 



THEN DROP PCH 



^spaces : o^-«pi«.u '^ ".<«t»"- •-' fa 5 

SptCtCif.l feu i/4l«tf <"■• 705 
LEAVE .* T><-~ .»-»*' Loof * + ^^^^ CflOP 

**- +LfloP 

LiVit 'Paivfi^r* 
P&t£.T : tHCT £»r pe.~Vtr 



"h 



( LI-SIGNED MAGNITUDE TESTS ) 

: f'TST 1 LOAA * 1 9RA CLRA CLfiB 

Shs ; : 2CUP OVER OVEH ; 
: MAC J IP S*AP THEN DROP ;. 
: *>< - ■ C 4 PCC» MTST 1 ; 
:*..>- C 3 HNE TSTA 6 fiEQ 4 *LS 

f-i T b T 2 : 
f-i'.Ax 2 DUP K< ^ADJ ; 

.vr-r * v 2 cup m> w£DJ : 
S 



HT5T 

MAD 3" 

M-4 



MMiSX 






U*v'»iq««'4. < ^«^4 






M> : ummh/,1 > 



V 



f«-*f . 



t^t>* s * <t w t el MAt 



r f u« ir (rea-0 



)ut 



!.-.(< 



(TOS- [ ^ r T^ 1 *- ^. pr 



2 *cJdLii^iv<»l w*^u<'<■. 



H4-* Ha-rirvl d'tk 



MUL 

ViK 

V - ". 
2HY 
SPL 



? 6 
UYI 

hYI 

n uo 

CM 



Tl "LE PR t-C ) SIGN PT. 1 ) 
I n n vam T2 t* V4RI 13 

I 14 :*+*+; 

Tfci> . U'l? /«0O ; 

I T HO F 2WY IES ROT i swap 

: GtT2 «* Swap « ; 
r? Tl SPLI T T4 T? SPLI T T4 
ET2 * 2 H Y T E S T3 T2 GET2 * + 
FS S*iP T4 T1 GET2 * + 
ES ROT «■ ROT ROT IPC * + 

13 Tl GET2 *+ : 
a Tl ft : '• DVS* T2 » : 
« T3 6 ; 



C 



KUL 
OL'O 
CM 
QUO 
SF..T 
• > = 
ac<a 

WE 

'.Si- 
vy t 

<OV 

RO 

SET 

1*0 



TIPLE PRECIS ION PT. 2 ) 
! T1 ! ; : DVS! T2 ! ; 
! T3 ! : : ClRG i QUO! ; 
+ Tl +! ; : CM+ T3 + 1 ; 
C 11 CM! : 

/.< NOT ; 
\>< swap JN-P &« HERE SWAP I 
: 

P IOX * 1 aSL 'X 8 ROL »X 
C ; 

C x=SP 3 aSL »y 2 ROL >X 
L *< '2 ROL »y 3 ; 
UP >H M* I MOO R> DVS I 

Stic ; 



7i ) Tl 1 Ta ) T4 



- r 



za*oci ; T-f* t<»s f 






SPLIT 

o£t: 



1) ? 
To 4 * C.rar.- T, T<ros-:i1 br<> p 1 4e * 5 ' 1 






LiBuk. a '-f(TOS-ai -*» *<«^r «■■+ (TO i - I ) { 



CtoS-0 C«r,+^^<-a <.* (ros-OoiMr -«- 
res 15 ^»-V.,-m «f tos -«- <to«;- >) 

US RaiF -* CTfis-1) 



AGAIN 



tv«« .T ros >=0 

3££/*J A tlf S A6A//I cv-tl'"'*-' 
1Vrf~~t A rt -»!^-"f O-". rf * + *» 

A. Xf -fc = -ffce» B is no-f execu-ii-J 

dM« b»'f 

i.,4. T<9S «• TT35-1 j L«f^ <*<•<• f>W, 
SCTOP i S«.+ «^ f«T -H/MOb jf'f*-!'"*'. 



<s«r 



<DVD 



( VULTIPIE PWFCI SI ON PT. 
( T1 = QUO T I EM ) 

( T? = DIVISOR ) 

( T3 = SHIFT COUNT ) 



3 ) 



♦ /MOD St TUP C 
f*< IF C Tl 
hFRs S*ap Tl 3 
- THEf. -1 CM* 
tiCS ROT JMP ** 
THEN S*ap DROP 



HERE ] OUP DVS* 
3 <Shp fLSE C 
<SHF 1 OU0+ 0VS« 
CM* IF <CVD t 3 
S'*ap j«p nit 3 

CUO* ; 



*/ MO '• Per \ t- . - S C.TOi- 2!* C «S - O w - '» i- 



*/ 



a. iioc ale 



i p^OiVw/4 b<< TM3 5 , 



»/ */"-'00 SWAP DROP 



;S 



PRINTING SKILL ROUTINE TO TEXT EDIT PROGRAM 



THIS ROUTINE APPENDS TO TEXT EDIT PROGRAM FOR W_ COMMAND. 
NEWSLETTER VOL II, ISSUE 3 JUNE, 19733 WHEN UE TYPE W 



CSEE 



V v 



"LTNE WIDTH" WILL DISPLAY, IF WE TYPE 90 AND HIT RETURN 
THE PRINTER WILL PRINT OUT 90 CHARACTERS PER LINE. ETC. 



"LINE OF PAGE?' WILL DISPLAY, 






THI 



*SPACE OF FIRST LINE?* WILL DI5PLY. 
KEY, THE PRINTER WILL PRINT OUT 5 



IF WE TYPE 54 AND RETURN KEY, 
PRINTER WILL PRINT OUT 54 LINES PER PAGE. ETC. nm , iinu 

* LENGTH OF PAPAGRAPH?"WILL DISPLAY. IF WE TYPE 2 AND RETURN 
KEY. THE PRINTER WILL PRINT OUT 2 POSITIONS PER PAPAGRAPH. ETC. 

IF WE TYPE 5 AND RETURN 
SPACES OF FIRST LINE PER 
PAPAGRAPH. ETC. NOW THE PRINTER IS GOING TO WORKING. 

THIS ROUTINE IS A PRETTY PRINTING ROUTINE. FIRST CHARACTER AND 
LAST CHARACTER TO 3E PLACE FIRST POSITION AND LAST POSITION EACH 
LINE AND PUT MORE SPACES ON THE RIGHT. 

THE TEXT EDIT PROGRAM TO 3E PATCHED LOCATION 0095 TO 57 Go f A 
AND 0200 TO CE 09 10, T/u>> K&uXZm^. ^-o"*- oS^A- tS OjOE; 



06EA 


7C 


00D4 


INC 






06ED 


7C 


00D7 


INC 






06F0 


39 




RTS 






C6F1 


31 


20 


CMP 


A 


£> 


CfcF3 


26 


03 


3NE 




©06F8 


0faF5 


7C 


00D7 


INC 






C6F8 


20 


3-1/ 


BRA 




©072£ 


06FA 


3D 


0310 


JSR 






06FD 


37 




PSH 


B 




C6FE 


7E 


086B 


JMP 






0701 


33 




PUL 


B 




C?02 


01 




NOP 






0703 


BD 


08E2 


JSR 






0706 


DE 


AE 


LDX 




o/ 


0703 


DF 


D2 


STX 






070A 


A6 


00 


LDA 


A 


• x 


070C 


03 




I NX 






070D 


81 


20 


CMP 


A 


£ 


070F 


26 


05 


BNE 




@0716 


0711 


Ab 


00 


LDA 


A 


• x 


0713 


08 




I NX 






0714 


20 


F7 


ERA 




O070D 


071b 


09 




DEX 






0717 


DF 


D2 


STX 




% 


0719 


86 


3F 


LDA 




£ 


0713 


97 


D5 


STA 


A 


0/ 
/3 


071D 


Ab 


00 


LDA 


A 


,x 


071F 


08 




I MX 






0720 


81 


OD 


CMP 


A 


f> 


0722 


26 


cp 


Li ill— 




QQbrt 



0724 
0726 
0729 
072C 
07 2F 

0731 
0733 
0736 
0738 
0739 
073A 
073C 

073E 
0740 
0742 
0743 
0745 
0747 
0749 
074C 

074E 
074F 
0751 
0753 



DE 
3D 
7E 
7A 
26 
DE 
7F 
36 
08 
4A 
26 
A6 
81 
26 

09 
A6 

81 
26 

7C 
20 

09 

A6 
81 
27 



D2 

07CD 

0761 

00D5 

EC 

D2 

00D4 

3F 



FC 
00 
20 
OC 

00 

20 

16 

00D4 

F4 

00 
20 



r nv 

JSR 
JMP 
DEC 
^NE 
LDX 
CLR 
LDA 
I MX 
DEC 
BNE 
LDA 
CMP 
BNE 
DEX 
LDA 
CMP 
BNE 
INC 
3RA 
DEX 
LDA 
CMP 



S071D 



A £ 



00733 



»->■ 



0O74E 



£ 

©075F 
00742 
,x 

f 

0075A 



0755 


BD 06EA 


JSR 


0758 


20 F4 


3RA ©074E 


075A 


7C 00D4 


INC 


075D 


20 E3 


3RA ©074.2 


075F 


3D 5C 


BSR 007 3D 


0761 


86 3F 


LDA A £ 


0763 


97 38 


STA A % 


0765 


A6 00 


LDA A ,X 


0767 


08 


I MX 


0768 


01 


NOP 


0769 


01 


NOP 


076a 


81 0D 


CMP A £ 


076c 


26 03 


BNE ©0771 


076E 


7E 0884 


JMP 


0771 


81 00 


CMP A £ 


0773 


27 3D 


BEQ O07B2 


0775 


81 20 


CMP A £ 


0777 


26 19 


BNE H0792 


0779 


97 D6 


STA A % 


0773 


86 00 


LDA A £ 


077D 


91 D4 


CMP A % 


077F 


2D OC 


BLT ©078D 


0731 


7A 00B8 


DEC 


0734 


27 19 


BEQ ©079F 


0736 


36 20 


LDA A £ _.. r 
JSR P rtrU *** 


0783 


BD 06D0 


0733 


20 03 


3RA ©0790 


078D 


7A 00D4 


DEC 


0790 


96 D6 


LDA A % _ — 
JSR F rniX v 


0792 


BD 06 DO 


0795 


7A 00B8 


DEC 


0798 


27 05 


BEQ 0O79F 


079A 


A5 00 


LDA A ,X 


079C 


08 


I MX 


07 9D 


20 CB 


BRA 3076A 


07 SF 


86 OD 


LDA A £ 


07A1 


3D 07D2 


JSR 


07 A4 


7F 0OD7 


CLR 


07A7 


01 


NOP 


07AS 


01 


NOP 


C7A9 


7E 0908 


JMP 


07AC 


5A 


DEC B 


07 AD 


26 Ofa 


BNE ©0735 


C7AF 


SO 07D2 


JSR 


07B2 


7E 0237 


jnP 0816 


07B5 


86 OD 


LDA A £ %lll 


07B7 


3D 07D2 


i?,S 0836 
JMP 0846 


07BA 


7E 0708 


07BD 


96 D4 


LDA A % uo ^° 


07BF 


9B D4 


ADD A % 


07C1 


97 D4 


STA A % 


07C3 


96 D7 


LDA A % 


07C5 


90 D4 


SUB A % 


07C7 


97 D4 


STA n /o 



01 cs 




D2 


LDX 




,0 


07CB 


39 




RTS 






07CC 


39 




RTS 






07CD 


86 


3F 


LDA 


A 


p- 


C7CF 


97 


D4 


STA 


A 

n 


0/ 


0701 


39 




RTS 






0702 


7F 


00D7 


CLR 






07D5 


3D 


06DO 


JSR 


■ I 


x-vcvir^K 


0708 


7A 


OODS 


DEC 






07DB 


26 


10 


BNE 




©07ED 


07DD 


37 




PSH 


B 




07DE 


C6 


OC 


LDA 


B 




07E0 


5A 




DEC 


B 




C7E1 


27 


05 


BEQ 




£07E8 


07E3 


3D 


06D0 


JSR 




pyv_t«A w«r 


07E6 


20 


F8 


BRA 




©07E0 


07E8 


C6 


31 


LDA 


3 




07EA 


07 


D3 


STA 


3 


c/ 

,3 


07 EC 


33 




PUL 


B 




07ED 


39 




RTS 






07EE 


7F 


0OD7 


CLR 






07F1 


86 


31 


LDA 


A 


£ 


07F3 


97 


D8 


STA 


A 




07F5 


39 




RTS 






07F6 


37 




PSH 


O 




07F7 


DF 


30 


STX 




t j 


07F9 


BD 


FC4A 


JSR 






07FC 


81 


5F 


CUP 


A 




07FE 


26 


OF 


BNE 




©080F 


0800 


DE 


1C 


LDX 






0802 


C6 


20 


LDA 


3 




0804 


E7 


00 


STA 


B 


,x 


0806 


E7 


01 


STA 


3 


9 A 


0808 


D6 


1D 


LDA 


B 


0/ 


CSOA 


5A 




DEC 


3 




080B 


D7 


1D 


STA 


B 


/O 


080D 


20 


03 


3RA 




eosi2 


030F 


3D 


FCBC 


JSR 






0812 


DE 


30 


LDX 




e.' 

,3 


0814 


33 




PUL 


3 




0815 


39 




RTS 







4C 49 4E 45 20 57 49 44 54 48 60 4Q 49 4E 45 53 

20 4F 46 20 50 41 47 45 3F 60 53 50 41 43 45 20 

4F 46 20 46 49 52 53 54 20 4C 49 4E 45 3F 60 57 

49 44 54 48 20 50 41 52 41 47 52 50 48 3F 50 



03DF 


7E 0708 


JMP 




08E2 


7D 0052 


TST 




08E5 


26 02 


BNE 


©08E9 


03E7 


20 F6 


BRA 


008DF 


08E9 


86 20 


LDA 


A £ 


08EB 


BD 06D0 


JSR 


h r«*r aa 


08EE 


7A 0052 


DEC 




08F1 


26 F6 


BMC 

w 1 *i_ 


©0SE9 



ns56 
0859 

0853 

085D 

085E 

0861 

0863 

0865 

0867 
086A 

0868 
086E 
0871 
0874 

0377 

087A 
037D 
0830 
0832 
0885 
0888 
033E 
088E 

0391 
0894 

0897 
C89A 
C89C 
C83E 
03A1 
08A4 
C3A7 
08A9 

05 A3 

06 AE 
08B1 
03B4 
C3B5 
08B7 
08BA 
08BD 
C8C0 
0SC2 
Q8C4 
08C7 
08C9 
08CC 
08CE 
08D0 
08D3 
08D5 
0SD3 
08DA 
08DC 



CE 4E01 
86 20 
A7 00 
08 

BD 07F6 
A7 00 
81 00 
26 F6 
BD 0310 
39 

CE 0816 
3D 0528 
3D Q856 
F7 07 1A 

F7 0737 
F7 0762 
F7 07CE 
D7 50 
CE 0821 
3D 0523 
BD 0356 
F7 07E9 
F7 07F2 
CE 0845 
3D 0528 
BD 0856 

D7 FO 

F1 

0830 
3D 0528 
3D 0856 
D7 52 
D7 53 
BD 07EE 
BD 05 EA 
7E 0701 
5A 

26 06 
BD 07D2 
7E 0237 
7D OOFO 

26 08 
-86 OD 

BD Q7D2 
20 13 
7 A OOFO 

27 07 
86 OD 
BD 06D0 
20 F4 
3D 07D2 

96 F1 

97 FO 
BD 08E2 



D7 

CE 



LDX 

LDA 

STA 

I NX" 

JSR 

STA 

CMP 

3NE 

JSR 

RTS 

LDX 

JSR 

JSR 

STA 

STA 

STA 

STA 

STA 

LDX 

JSR 

JSR 

STA 

STA 

LDX 

JSR 

JSR 

STA 

STA 

LDX 

JSR 

JSR 

STA 

STA 

JSR 

JSR 

JMP 

DEC 

BNE 

JSR 

JMP 

TST 

BNE 

LDA 

JSR 

BRA 

DEC 

3EQ 

LDA 

JSR 

BRA 

JSR 

LDA 

STA 

JSR 



A £ 
A ,X 



A ,X 

A £ 
@085D 



a 
o 
3 
3 
3 % 



3 % 



08F3 


96 53 


j-tiJ A 


A 


08F5 


CI ~ "> 


STA 


A 


03F7 


96 50 


LDA 


A 


08FS 


90 53 


SUB 


A 


08F3 


B7 071A 


STA 


A 


08FE 


37 0737 


STA 


A 


0901 


B7 0762 


STA 


A 


0904 


37 07CE 


STA 


A 


0907 


39 


RTS 




0908 


96 50 


LDA 


A 


C90A 


8D EF 


3SR 




0903C 


7E 0708 . 


• JMP 





O08FB 



( «.: Kalfc i^w*^ v 



©OSBD 



@08CA 
A £ 

©08DC 
©08D5 

©08(79 
A % 

Ac/ 
/o 



CSS Basic Modification: 

by Roger J. Spott 

This change in code increases the speed 

the interpreter looks 
through the command table by about 15-20%. 



New Code 

A01 08 AG1 

E6 00 

26 FB 
8C 21 Bl 

27 19 
8C 1F6E 
27 19 
08 

08 



Thanks goes to Dave Lissiuk Springbok 
Digitronics for pointing out this one. 



01c 


1 Code 


08 




8C 


21 Bl 


27 


ID 


8C 


1F6E 


27 


ID 


E6 


00 


26 


Fl 


08 




08 





•*',on o 



Paratna Strings in CSS Basic Version 4.C 

Parsing is the process of comparing the name of a funci^w: ur- 
aommand in the Basic source program with all of the available ones 
in the command table. The natch (if any) yields an addre33 which 
the interpreter Jumps to (ihu3 handling a command or function). A 
good tutorial on 6600 parsing appeared in Kilobaud Avrtl 1979 ( ov 36) 
by Gary Gaugler, 

The paralng routtnea themselves are entered at 09B1 for commands 

09D5 for functions 
0903 for STEB or TO 

Sow the flow of the program la auoh that at 0A3D the program Jumps 

to 09DA (read a character and parse), ,JEE LDX 00 

T.t.. v. - .'-. *■ ._- 42) jsjixOO actually get you to 

(for the immediate mode) the appropriate handler 

routine. 

.j 

During execution of a running program the parsing routine Is reached 
when 031 f 7$ 156F Jumps to 15 6F 

iser ds 20 

30 09DA (parse) 

72 0351 0351 EE LDX 00 

A3 JSRX 00 

3D 09AA (keep looking for a colon 
or end of line) 

20 A7 (to 0301) 

CONTINUE 3ASIC 

Now that we have Identified the main "control loop" anotherportton 
of the program will need to be identified. The code which takes a 
line of Inputted basic program (from peripheral or keyboard) which is 
now in the line Input buffer (00A6-00FF) and absorbs It Into the baste 
program with the line number in order. This requires a Jump to JPM 0039, 
In the case of a keyboard Input 0A35 contains the Jump to 0O39, 

Remember, when using the cassette data files, that the Input file buffer 
Is limited (2325 to 2133 inclusive). That is why records that are too 
long will be output ted to tape but cannot be read back, 

10 INPUT "INPUT FILE NAME ", F$ 

20 OPENO F$ 

30 FOR X* 1T0 60 

40 TWRITE X 

50 NEXT X 

60 CLOSE 

FOB Xs 1 TO 60 will work but FOR X = 1 TO 100 will not be read back/ 

ALSO» you may have difficulty If you try to put other Basic statements 
between OPENO (or OPENI) and TWRITE (or TREAD) 

I recently ordered several copies of OSS (tape and manual) for the 

reduced rate on quantity purchases. There are two left for Sphere 
Users (25.Q0) 



In Line Machine La.naua.am Subroutine^ far O SS Baalo Version 4.0 

The Idea for this comes from the article In Interface Age Feb. 1979 
by John P. Newcomer. My version used the Input line buffer from 
00A6 to OOFF to hold the actual machine code routine while It ex- 
ecutes. This means that we are limited to forty two bytes of machine 
code when we do a FAT line. 

This routine may be reused again and again tn m program but remember 
that the machine cede Itself will be wiped out and re-eenverted from 
the basic line every time. Certainly a GOSVB may be weed to do the Job 
writing out the PAT line many times in a program* 

The short machine language routine must end in a 39 or jump to "a routine 
which ends in a 39. 



Examples* 

Store byte xx at location YTTT 
Output a character (A) 
Walt until some key is hit 
Execute subroutine 



FAT 86xx37rr7T39\( sure beats decimal of 
PAT SB4lbd01F139 \^P0KEt ) 

PAT 3DF04A39 ^ 

PAT 7E17E0 HOME SUBUQUTIXE clears sorn. 



The whole thing requires a command in the tablet 50 41 54 00 2915 • 



PAT-' MACHINE LANGUAGE SUBROUTINE FOR CSS BASIC 



USE LINE BUFFER 

USE UNUSED POINTER 

GET BEGINNING BASIC LINE 

LOAD CONTENTS 

IF END OF LINE BRANCH TO EXECUTE 

BSR INHEX (TEST AND CONVERTS HEX #) 



PAT 


CE 00A6 




DF 59 




DE 2C 


READ 


A6 00 




27 IB 




3D 20 




48 




48 




43 




48 




16 




A6 01 




3D 17 




IB 




OF 69 




DE 59 




A7 00 




03 




DF 59 




DE 69 




OS 




08 




20 El 


EXEC 


BB 00A6 




39 


ERR 


7E OFOB 


INHEX 


80 30 




25 F9 




81 09 




23 08 




SO 07 




25 Fl 




31 OF 




22 ED 


END 


39 



BSR INHEX 

UNUSED POINTER FOR TEMP2 

STORE HEX BYTE IN BUFFER 



LOOP BACK TO READ 

RETURN 
ERROR #3 

BRANCH IF CARRY SET TO ERR 

BRANCH IF LOW OR SET TO END 

TO ERR 

TO ERR 



CSS BASIC FOR CASSETTE VERSION 4.0 AND 4.3 LOW MEMORY POINTERS 

10-20 GOSUB STACK AREA 

20,21 BEGIN BASIC SOURCE CODE 

22,23 NEXT BYTE AFTER BASIC PROGRAM 

24,25 NEXT BYTE AFTER DEFINED VARIABLES 

26,27 MEMORY LIMIT 

28,29 -USER'" POINTER 

2A,2B LINE NUMBER BEING EXECUTED 

2C2D POINTER INTO SOURCE CODE 

2E,2F NEXT LINE TO BE EXECUTED (WHEN JUMP; 

30,31 POINTER TO NUMBER BUILD BUFFER 

32,33 NEXT LINE TO BE EXECUTED AFTER "CONT" 

36,37 TEMP. STORAGE FOR -LIST" AND OTHERS 

38,39 TEMP. STORAGE (UNDETERMINED) 

3A,3B TEMP. STORAGE FOR STACK POINTER 

3C.3D NEW LINE IF A JUMP 

3E,3F , HIGHEST LINE NUMBER IN PROGRAM 

40 FIRST ARGUMENT IN 'POKE' 

40,41 USED TO STORE X WHEN ACCESSING STACK 

42,43 INDEX REGISTER STACK POINTER 

44,45 -DATA-' POINTER 

46 'STRING-' 

48 "POS" VALUE 

49,4A HOLDS POINTER TO CONSTANT DURING TRIG. FUNCTIONS 

4B HOLDS RANGE INFORMATION FOR TRIG. FUNCTIONS 

4C4D PLACE IN COMMAND TABLE WHERE BASIC WILL JUMP NEXT 

4£ TEMP. STORAGE USED IN 'STEP' AND '3GN' 

4F LOCATION OF DECIMAL POINT ( FROM LEFT) 

50 SECOND ARGUMENT OF 'DIM' 

51 FLOATING POINT CONTROL 

54 STORAGE USED IN 'PEEK' 

55 HOLDS FIRST ARGUMENT IN 'DIM' AND OTHERS 
58 'DIGITS' VALUE 

5D,5E NEXT LINE TO BE EXECUTED IN BASIC SOURCE 

5F,60 BEGIN 'FOR NEXT-LOOP' BUFFER 

61,62 POINTER INTO BUFFER TO SEE LOOP THAT IS ACTIVE 

63 POINTER TO DEFINED VARIABLE TABLE 

65,66 GOSUB STACK POINTER 

67,68 USED IN 'RND' 

73 NON TERMINAL FLAG 

74 TEST IF STRING OR NUMERIC. NUMERIC=0 

75 TEST IF 'TRACE' IS ON 
76,77 STRING BUILD BUFFER POINTER 

78,79 APPROPRIATE I/O CONTROL CHARACTER POINTER 

7A,7B ACTUAL OUTPUT ROUTINE IN USE 

7C7D ADDRESS IN PORT JUMP TABLE FOR THE INPUT PORT IN USE 

7E,7F MIKBUG PI A PORT ADDRESS 

30,31 'LINE*' 

82,83 BEGIN STRING BUILD BUFFER 

84 'PORT*' 

85-3A FUNCTION ARGUMENT SQUARED « EXP; ATAN(2) IT CONTAINS 4 

8C90 NUMBER USED IN A FUNCTION 

98,99 START OF CASSETTE FILE NAME BUFFER 

9 A USED WITH CASSETTE ROUTINES IT»0 IF AT TERMINAL 

9B 'RJUST=' FLOATING POINT 

9D ONLY IN VERS. 4.3 FOR CASSETTE 

A6-FF BEGIN INPUT LINE BUFFER 



LATEST CORRECTIONS FOR CSS BASIC 

i. CHANGE THE CONTENTS OF 142C, 142D TO 25DB (THIS ALLOWS 
DETECTION OF OVERFLOW FOR THE FOR-NEXT LOOP BUFFER) 

2. CHANGE THE FIVE BYTES BEGINNING AT 1D9F FROM 

TOs 
(OLD) (NEW) 

01 FE 1CF2 

FE 1CF2 39 

39 09 (MAKES ARCTAN WORK PROPERLY) 

3. CHANGES TO BASIC AFTER YOU IMPLEMENT THE 64 CHARACTER 
PER LINE SCREEN MOD. 

CHANGES TO EDIT: 

22CB TO 40 

2308 TO 40 

22D1 TO 40 

24C0 FROM E1A0 TO E330 (FOR LIST COMMAND) 

4. CHANGE 1SDB FROM 36 TO 29 (THIS IS AN ERROR IN THE TAPE ) 



CORRECTIONS FOR PIE IK EPROM VERSION A 1,0 (BY TOM CROSLEY) 
NEW SPHERE 64 CHARACTER VIDEO MODIFICATION 





< 01 


-D) 


( NEW ) 


F4C8 


3A 


IF 


8A 


3F 


F58A 


84 


EO 


34 


CO 


F5CB 


CE 


El EC 


CE 


E3C0 


F5E9 


3A 


IF 


8A 


3F 


F627 


CE 


E1E0 


CE 


E3C0 


F631 


E7 


20 


E7 


40 


F63F 


D6 


1C 


96 


1C 




96 


ID 


D6 


ID 




54 




58 






46 




49 






44 




53 






44 




49 






44 


44 


84 


OF 


F658 


84 


IF 


84 


3F 


F65D 


CE 


E1E0 


CE 


E3C0 


F673 


CE 


E200 


CE 


E400 


F6C4 


CE 


E200 


CE 


E400 


F6D8 


8C 


E1E0 


8C 


E3C0 


F734 


CE 


E020 


CE 


E040 


F737 


8C 


E200 


8C 


E400 


F746 


8A 


IF 


SA 


3F 


F7B8 


31 


IF 


31 


3F 


F7BC 


86 


IF 


36 


3F 


F7C0 


C4 


EO 


C4 


CO 


F7CA 


C4 


IF 


C4 


3F 


F7DF 


84 


IF 


84 


3F 



The Amateur Computer Club of New Jersey has several hundred programs 
in SWTP Basic which should run tn OSS easily without any modification. 
Unfortunately, these are all traded on FLEX disks only. We have plans 
to make cassette copies and make this huge program library available to 
all cassette users. What we need are some original Basic programs to 
give In return. What have you got? I would arrange to put them on 
FLEX disks to donate to the library. Thanks. Programs which appeared 
tn magazines and you have keyed tn and made to run on SWTP or QSSBastcs 
are OK If you Indicate the article along with the program to give credit, 
Usually a HEM at the beginning Is sufficient to show where the donated 
software came from and also where Instructions for tt3 use may bv found. 
The library Is not Interested In copyrighted software. 



_ , _ , , s . r ^ ? . r7 -g- 

MOD: CHAHGE CRT BOARD FROM 32 TO 64 CHARS/LINE 



O^ 



T—STTP-29- WAS" PERTORWETr- DURTNG— MEMORY— trPGRA-DET- REnOVE-CJIRE-TROir 
E5-14 TO E5-8. 



2) CUT LAND FROM E10-11 TO E4-14 AT E4 END (ORIG A'8). 



3) CUT LAND FROM E10-8 TO E4-5 AT E4 END (ORIG A'7). 

4) CUT LAND FROM E10-9 TO El- 2 AT E4 END (ORIG A ' 6) . 

5) CUT LAND FROM E10-12 TO E3-11 AT E3 END (ORIG A' 5). 

6) CUT LAND FROM E6-8 TO E3-11 AT E3 END (ORIG A' 4) . 

7) CUT LAND FROM E6-9 TO E3-5 AT E3 END (ORIG A' 3). 

8) CUT LAND FROM El 1-11 TO E6-1 AT E6 END (CARRY BIT FROM E11). 



9) CONNECT E10-11 TO E5-14 (NEW A' 9) 
10) CONNECT E10-8 TO E4-14 (NEW A*8). 



11) CONNECT E10-9 TO E4-5 (NEW A'7). 

12) CONNECT E10-12 TO E4-2 (NEW A'6). 



13) CONNECT E6-8 TO E3-11 (NEW A'5). 

14) CONNECT r 6-9 TO E3-14 (NEW A'4). 



15) CONNECT E6-1 TO E6-12 (ADD NEW COUNTER STAGE FOR A' 3). 

16) CONNECT E6-14 TO E11-11 (CARRY BIT FROM E11 TO NEW COUNTER STAGE) 



17) CONNECT E6-1 TO E3-5 (NEW A' 3) 



©^ 



8) REMOVE C37 AND REPLACE WITH A 4.7 PF CAPACITOR (THIS ALLOWS DENSITY 
„ _ * — „ TO— BE— Hf£B:E*SfiD- TO- ACCOMMODATE 64 -CHARS" )-;- 



19) PLACE A 10K RESISTOR ACROSS RS (MAKES CURSOR DISPLAY MORE RELIABLE). 
NOTE: PERFORM STEP 19 ONLY IF YOUR CURSOR GIVES YOU PROBLEMS WHEN 

- -BACK-ED -O-V-ER -A- PRE-V^-QU SLY— TY-PED— CHARACTER-. CHECK~FOR- THiS 

SYMPTOM BY GOING INTO EDIT MODE AND TYPING IN ABOUT 10 
LETTER H'S. NOW BACK THE CUROSR OVER THE H'S AND IF WHEN THE 
t CURSOR SHOULD BE ON, YOU INSTEAD SEE A 7, THEN DO STEP 19. 

' ■ — W-H-ft-T-Y-OU-ARE ACTUALLY -L©OK-S-NG- r ftT~- IS -THE- COMPLEMENTED ~ 

CHARACTER WITHOUT THE CURSOR FUNCTION, AND THIS PROBLEM 
WILL AFFECT ALL CHARACTERS. 

2-9-5- -AS" THT-S-€HA-HG«-tfi LL "AFFECT" ALL— -3- ADJUSTMENT - POTS , A DEF-IN I TE 

ADJUSTMENT PROCEDURE CANNOT 3E GIVEN. HOWEVER, I FOUND 
THE DENSITY POT (R21) TO REQUIRE THE MOST MOVEMENT, HENCE 
IT SHOULD BE THE FIRST ONE ADJUSTED. 



II 



8/17/79 



MOD: Upgrade crt board from 512 to 1024 bytes. 

1) rw I 18 ; pin , W ^ r f wrap socic ets J^t below £30 on the 
CRT board and label them E32 and £33. 



2) 
3) 
4) 
5) 
6) 
7) 
8) 
9) 
10) 

11) 
12) 

13.) 

H) 

15) 

16) 

17) 

18) 

19) 

20) 

21) 

22) 

23). 

24) 

25) 

26) 

27) 

28) 
29) 



Remove 4 681 
Connect £32- 
Connect E32- 
Connect E32-* 
Connect E32- 
Connect £32- 
Connect £32- 
Connect £32- 
Connect E32- 
Connect E32- 
Connect E32- 
Connect E32- 
Connect X1-2 
Connect £32- 
Connect E32- 
Connect £32- 
Connect £32- 
Connect £32- 
Connect E33- 
Conneet £33- 
Connect £33- 
Connect E33- 
Connect E32- 
Connect E32- 
Open land go 
Connect E13- 



£30 
. Ml* 


' 








» 




m 




E33 




ES3 




iUM 




aim 




V V 1 — • 




3C L 





Install 2 21 

NOTE; If you 

then i 

Connec 



O's at EH, E20, E25 and E30. 
18 to E33-18 to E30-24 (Vcc). 
9 to £33-9 to E3Q-1 (find). 

to £33-5 to £30-23 (AG). 

to £33-6 to £30-22 (A1). 

to £33-7 to £30-21 (A2). • 

to £33-4 to £30-20 (A3). 

to £33-3 to £30-19 (A4). 

to E33-2 to £36-18 (A5). 

I to E33-1 to E30-17 (A6). 
17 to £33-17 to £30-10 (A7). 
16 to £33-16 to £30-13 (A8). 

to E5-13 (A9). 
15 to E33-15 to E5-12 (A9). 
14 to £30-2 (DO). 
13 to E30-3 (D1). 

12 to £30-4 (D2). 

II to £30-5 (D3). 
U to £30-6 (D4). 

13 to £30-7 (D5). 

12 to £30-8 (D6). 
11 to E30-9 (D7), 
10 to E33-10 to E30-16 (R/w). 
8 to E33-8 to £32-9 (CS always active), 
ang from X1.-2 to E13-13 at £13 end. 

13 to E13-7 (this allows selection of board for 

addresses £000 - E3EF). 

14 static rams at £32 and E33. 

are going to continue with the 64 char mod 
gnore this step, else, ' 

t E5-H to E5--8 (this ties A' 9 inactive so we can 

access the 1st 512 bytes). 



V3A ROM changes for 64 char/line CRT MOD: 
Address - Old data - New data 



FB75 


1E 


3E 


FB8F 


1F 


3F 


FBAF 


5F 


BF 


FBDA 


3£ 


7E 


FBDD 


3F 


7F 


FC3B 


E2 


E4 


FCC1 


20 


40 


FCC9 


20 


40 


FCE1 


E2 


E4 


FD09.A 


E1E0 


E3C0 


FD12 


EO 


CO 


FD64 


20 


40 


FD69,A 


E1EO 


E3CO 


FD74,5 


E1DF 


E3BF 


FD79 


20 


40 


FB89 


1F 


3F 



GANGES TQ THE V3N PROMS TO RUN WITH THE 64 CHARACTER MOD. 
FROM". TO: 



FC3F 


CE 


E200 


CE 


E400 


FCCD 


C6 


20 


C6 


40 


FCD5 


C6 


20 


C6 


40 


FCE6 


3C 


E200 


SC 


E400 


FDOO 


EO 




CO 




FD4& 


CE 


E1E0 


CE 


E3C0 


FD62 


E& 


20 


E6 


40 


FD67 


0*w 


EiEO 


SC 


E3C0 


FD74 


CE 


E1DF 


CE 


E3BF 


FD79 


E7 


20 


E7 


40 


FDS3 


SC 


E01F 


SC 


E03F 



EDIT: 



1\ 



1368 STEtXARIA CIRCLE 
BOUNTIFUL, UTAH 84010 



JOHN R. BAYL1S 
Accounting Services 



thlei»hone: 

801/299-103 



o 



18 OCTOBER 1379 

ROGER SPOTT AND READERS 
12973 CONNECTICUT ROAD 
WEATON, MARYLAND 20906 

TO THOSE CONCERNED: 

* I AM CURIOUS AS TO THE NUMBER OF SPHERE SYSTEMS IN ACTUAL 

BUSINESS USE. I AM CURRENTLY USING MY COMPUTER SYSTEM IN AN 

ACCOUNTING PRACTICE.. FOR GENERAL LEDGER WORK AND VARIOUS OTHER 

BUSINESS APPLICATIONS. 

IF THERE ARE ANY OTHER SPHERE SYSTEM USERS APPLYING BUSINESS 

PROGRAMS, I WOULD ENJOY HEARING FROM YOU. PERHRPS WE COULD START 

R COLUMN IN THE NEWSLETTER FOR BUSINESS APPLICATIONS. I WOULD BE 

WILLING TO CONTRIBUTE. 



RESPECTFULLY.. 

m R. BAYLIS C. P. A 
PO BOX ±37 
N. S. L. , UT 84854 




1 '■ JB/.JB 






NOT A 6809 BUT CONSIDER THIS 

I have managed to use the 3E instruction (WAI) to trigger an NMI. 
Whenever the 3E is executing, the BA pin of the 6800 goes high. 
It would be simple to invert this and generate a negative going 
edge to work the NMI except for the fact that the BA line also 
goes high on evert/ refresh. The problem is to generate the in- 
terrupt only when BA stays high./ 



Rri 



I -It j. 



'-=-..* ,fi -"'^ The 3E is being used with 

a supervisor program which does all kinds of nice things (many 16 
bit manipulations) all on the stack. In other words the following 
pseudo instructions execute on my system without using any temporary 
locati o ns in memory • .. 



Push X onto stack 

Pull X from stack 

Transfer B accumulator to X register 

Transfer X' register to B accumulator 

Swap B accumulator and X register 

Swap X and stack ptr. 

swap B and stack ptr. 

Swap bytes of. index, regtater 

Add X to contents- of B 

Add to X contents of stack ptr. 

Add to B contents of X 

Add to B contents of stack ptr* 

Add to stack ptr. contents of X 

Add to stack ptr. contents of B 

Push X (MSB) onto stack 

Push X (LS3) onto stack 

Pull x (MSB) from stack 

Pull X (LSB) from stack 

Transfer X (LSB) to A ace. 

Transfer X (MSB) to A ace. 

Transfer X (ISM) to 3 ace. 

Transfer X (MSB) to 3 ace. 

Transfer A ace. to X (MSB) 

Transfer A aco. to X (LSB) 

Transfer B aee. to X (MSB) 

Transfer B ace, to X (LSB) 

Swap A and B accumulators 

Swap A ace* and stack 

Swap B ace* and stack 

Swap A ace, and X (MSB) 

Swap A ace. and X (LSB) 

Swap 3 ace. and X (MSB) 

Swap 3 ace, and X (LSB) 

Add to A aee- contents of stk 

add to 3 ace* contents of stk 

Add to stk contents of A ace 

Add to stk contents of .3 ace. 

Add to X(LS3) contents of A 

Add to X(LSB) contents of B 

Complement X Reg. 

Swap nibbles of A ace. 

Swap nibbles of 3 aee. 

Mult, aceumst result in A3 

Mult. X by Bs result in XB 



Branch 16 bit PC relative 
Pushall registers 
Pullall registers 
Move program block 
Compare strings for match 
Move message block 
Indexf mult. AxB and add to X) 
Subtract X from AB 
Subtract A3 from X 
Subtract A from X 
Subtract B from X 
16 bit unsigned divide 
Hex to Asett (one byte) 
Ascti to binary (one byte) 
Binary 16 bits to 5 Ascit 
digits pointed to by X 



THESE ARE CALLEB BY A PROGRAM 
AS 2 BYTE INSTRUCTIONS i 



TO PUSH X 
TO PULL X 



3E 01 
3E 02 



Etc. 



Our CSS Baste will execute 
machine language on a line of 
the Basic program so these short 
cuts can greatly speed up the 
Basic/Machine code hybrid program. 

Yes, I had to change the vector 
for NMI in the 1702 EPROM to 
an address where the supervisor 
resides but the SWI -was left alone. 
The NMI still works from the key- 
board tf desired. 




SPHERE USER GROUP OCTOBER 1979 



1 79 


ASI MARKET RESEARCH 


7655 SUNSET BLVD. 


HOLLYWOOD CA. 90046 


3 79 


ROBERT BAER 


921 LINCOLN AVE. 


PALO ALTO CA. 94301 


5 79 


T.H. ANDERSON 


215 BAYVIEW #110 


SAN RAFAEL CA. 94901 


6- 79 


BITS AN PIECEZ 


P.O. BOX 23 


WATERLOO 2017 AUSTRALIA 


7 79 


JEAN-FRANCOIS BQIVIN 


1405 RUE IBERVILLE 


MONTREAL CANADA H2K 3B2 


9 79 


SAX BRONSTEIN 


9026 AUTOVILLE DR. 


COLLEGE PARK MD. 20740 


10 79 


LANI 8UCELLI 


11941 HEIR CT. 


CULVER CITY CA. 90230 


11 79 


CHARLES BURTON PHD. 


1618 MARILYN AVE. 


DAYTON OH. 45420 


13 79 


PHILLIP CAMERON 


43 OLIVE CT. 


3T0UGHTGN HA. 02072 


16 79 


TOHCRQSLEY 


1675 NEW BRUNSWICK AVE. 


SUNNYVALE CA. 94087 


13 79 


SCOTT B'ASRGN 


2123 SUFFIELD DR. 


WINTER PARK FL. 32739 


19 79 


DARREL COLLINS 


8638 E.SOLANDO DR. 


3C0TTSDALE AZ. 35253 


21 79 


OWEN DAVIS 


710 WAIKIKI OR. 


DES PLAINE3 IL.60016 


22 79 


LEROY DANNER 


3900<3900-45TH STS. )#23 


KENOSHA WI. 53140 


23 79 


DAVID DEFOREST 


12697 GRATON RD. 


SEBASTGPOL CA. 95472 


24 79 


JOSEPH BAKES 


2510 BROADWAY 


BIG SPRING TX. 79720 


2S 79 


JOHNBEPPE 


1201 2ND ST. 


OELANCONJ. 08075 


26 79 


DONALD DORSON 


GARDNER RD. 


WEST KINGSTON RI. 02392 


27 79 


CARLYLE EASTMAN 


6016 N.ARLINGTCN 


SAN PA&Q CA. 94806 


23 79 


R.S. DOWNS 


ROUTE 7 BOX 211-A 


RALEIGH NC. 27614 


29 79 


ROBERT EJJNIS 


9322 LAUREL 


FONTANA CA. 92335 


31 79 


HARRY FRIEDMAN 


945 DUDLEY BR. 


SHREVEPORT LA. 71104 


33 79 


DR. JOHNOEARHART 


10430 GRAND PK. DR. 


SAN ANTONIO TX. 78239 


34 79 


DAVID 6HERS0N 


1745 RAVIZZA AVE. 


SANTA CLARA CA. 95051 


35 79 


•JOHN GIBBON 


3 PUDDINGSTONE RD. 


NORRIS PLAINS NJ. 07950 


37 79 


R.M. GRAINGER 


RR NQ.1 PRESCGTT 


ONTARIO CANADA KOE 1T0 


39 79 


BYRON HALE 


1190 GLENBLAIR WY. 


CAMPBELL CA. 95008 


40 79 


G.K. HALE-LONG ENGINEERING 


961 BURKE ST. 


WINSTON-SALEM NC. 27101 


41 79 


WILLIAM HARTWEG 


228 ST.MARKS PLACE 


STATEN ISLAND NY. 10301 


42 79 


JOHN IRSIK 


1017 MICHIGAN 


BEAUMONT CA. 92223 


45 79 


MICHAEL KELLEHER 


11004 27TH AVE. S. 


SAVAGE m. 55337 


46 79 


JOHN HEACGCK 


4 STANFORD DR. #3A 


BRIDGEWATER NJ. 03307 


48 79 


KIMKLAGES 


435 SANTIAGO AVE. 


ORLANDO a. 32807 


49 79 


KLEPFER 


76L0RNALANE 


TONAWANDA NY. 14150 


51 79 


DEANLANCTQN 


207 S 2ND. ST. 


CORNELL IL. 61319 


52 79 


6.H. LATTA 


RT. 3 SMYRNA RD. 


SEARCY AR. 72143 


53 79 


MICHAEL KGVIS 


3810 MAIN STREET 


STRATFORD CT. 06497 


54 79 


DAVID LAKE 


243 W.SIRIUS 


ANAHEIM CA. 92802 


60 79 


TOM MEIER 


30 ALCOTT STREET 


ACTON HA. 01720 


62 79 


JON MEIER 


97 CENTER AVENUE 


MIDDLETOWN RI. 02840 


64 79 


E.HUGH MELTON JR. 


8314 UNIVERSITY DRIVE 


RICHMOND VA. 23229 


66 79 


JEFFREY BRGWNSTEIN D.D.S 


2 TOR ROAD 


WAPPINGERS NY. 12590 


70 79 


MELVIN NOREa-PROGRAMMA CQNSULTA 


P.O. BOX 70127 


LOS ANGELES CA. 90070 


71 79 


MICHAEL MURPHY 


2003 LAWRENCE AVE. 


INDIANAPOLIS IN. 46227 


72 79 


J.C. PIRTLE 


P.O. BOX 537 


AZLE TX. 76020 


73 79 


LOUIS NYESGES 


25497 WOLF ROAD 


BAY RIDGE OH. 44140 


75 79 


ARIE PGLOERVAART 


P.O. BOX 701 


YERINGTON NV. 89447 


76 79 


JIMRAEHL 


943 BEGONIA 


ESCONDIDO CA. 92027 


77 79 


H.C. PljRCELL 


1634 STANFORD DRIVE 


ANKORAGE AK. 99504 


78 79 


JOHNRIBLE 


51 DAVENPORT ST. 


CAMBRIDGE MA. 02141 


79 79 


WARREN REDDEN 


RR 1 BOX 22 


GYPSUM KS. 67448 


80 79 


U.J. RUTLEDGE 


1201 PIERCE ST APTI305 


ARLINGTON VA. 22209 


81 79 


MIKE SCHWARTZ 


719 PATTERSON ST. WEST 


LONG BEACH CA. 90306 


82 79 


LAWRENCE SAMBUCO 


22 FREDRICK DR. 


POUGHKEEPSIE NY. 12603 


33 79 


BR. ROGER J. SPOTT 


13975 CONNECTICUT AVE. 


WHEATON MD. 20906 


85 79 


FRANK VAUGHT 


4996 SOMAN AVE. 


SAN DIEGO CA. 92110 


86 79 


RICHARD THERIAULT 


12120 'ARCHVEBUE 


MONTREAL CANADA H1H 3C1 


87 79 


GENE HALLIS 


1954R OLD MIBDLEFIELD WAY 


MOUNTAIN VIEW CA. 94043 


88 79 


RONALD WALTNER 


353 N.KENYGN 


INDIANAPOLIS IN. 46219 


89 79 


CHAN MI YUNG 


P.O. BOX K-2296 


KOWLOON HONG KONG 


90 79 


LES J. FULLER 


28 KIDMAN AVE. 


S.GUILDFORD 6055 W.AUSTRALIA 


91 79 


BARREN HEIMER 


23025 KINARD AVENUE 


CARSON CA. 90745 


92 79 


DR. HARRY SPAIN 


382 BLUE RIDGE RD. HOLIDAY PARK 


PITTSBURGH PA. 15239 


93 79 


DAVE SIBLEY-BEPT. OF MATH 


PENN STATE UNIVERSITY 


UNIVERSITY PARK PA. 16S02 


94 79 


JOHN MCLACHLAN 


175 BRENTCLIF RD. 


TORONTO CANADA M4G 3Z1 


96 79 


DOUGCALLEY 


RT1 BOX 219 


FLAGSTAFF AZ. 86001 


97 79 


ROBERT LEIF 


1030 MARIPOSA AVE. 


CORAL GABLES FL 33146 


98 79 


RONALD FISCHER 


LPO 11247 LIVINGSTON COLLEGE 


NEW BRUNSWICK NJ. 08903 


99 79 


JIM CHIN 


33-34 70TH 3T. 


JACKSON HEIGHTS NY. 11372 


101 79 


SCHOLLS INC. -1020 RAYMOND AVE. 


P.O. BOX 43116 


ST PAUL UN. 55164 


102 79 


BILL RUTHERFORD 


3201 N.450 W. 


KOKOMO IN.46979 


103 79 


JOE D.TREGEAGLE B-35638 


CTF-CENTRAL/F-336 


30LEDAD CA. 93960 


106 79 


DR.GEORGE HORNER 


30 DELAMERE AVE. 


STRATFORD ONT. CANADA N5A 425 


108 79 


STEPHEN BRADLEY 


W/'C 655 BUJG. K-490 


NAS MIRAMAR CA. 92145 


110 7? 


JOHNBAYLIS 


P.O. BOX 137 


NSL UTAH S4054 


113 79 


HARRIS 6. ALLEN 


1106 WYNBROGK LANE 


MECHANICSVILLE VA. 23111 



